home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr35 / id_chk11.zip / ID_CHECK.BAS < prev    next >
BASIC Source File  |  1993-06-14  |  3KB  |  89 lines
  1. '+--------------------------[ ID_CHECK Ver 1.10 ]----------------------------+
  2. '|  Written By Gary Meeker 06/01/93                        Updated 06/14/93  |
  3. '|  SYSOP: SHARP Technical Support Line BBS               Lawrenceville, GA  |
  4. '|         (404) 962-1788                          300-14400 Baud. 24 Hours  |
  5. '+---------------------------------------------------------------------------+
  6. 'V1.00  06/01/93 - Initial Release
  7. 'V1.10  06/14/93 - 2nd Release - Added feature to collect numbers to check
  8. '                  from Users known to use PC Pursuit.
  9.  
  10. DEFINT A-Z
  11.  
  12. '   QuickPack Declarations
  13. DECLARE SUB KillFile (FileName$)
  14.  
  15. '   PDQ Declarations
  16. DECLARE FUNCTION PDQExist% (FileSpec$)
  17. DECLARE FUNCTION PDQParse$ (Work$)
  18. DECLARE SUB SetDelimitChar (Char)
  19.  
  20. '   Myown Declarations
  21. DECLARE SUB INC ALIAS "_inc" (IntVar%)
  22.  
  23. DIM UserName AS STRING * 25, CheckName AS STRING * 25
  24.  
  25. PRINT "ID_Check Ver 1.10 - Copyright 1993 Gary Meeker"
  26.  
  27. '   Get the Command Line
  28. C$ = UCASE$(COMMAND$)
  29.  
  30. SetDelimitChar 32
  31.  
  32. SysFile$     = "PCBOARD.SYS"
  33. CallIDFile$  = PDQParse$(C$)
  34. ListFile$    = PDQParse$(C$)
  35. PCPListFile$ = PDQParse$(C$)
  36.  
  37. IF PDQExist(SysFile$) THEN
  38.    OPEN SysFile$ FOR RANDOM ACCESS READ SHARED AS #1
  39.       GET #1, 85, UserName$
  40.    CLOSE #1
  41. END IF
  42. IF PDQExist(CallIDFile$) AND PDQExist(ListFile$) THEN
  43.    PRINT "Checking for "; PhoneNumber$; " ... " ;
  44.    OPEN CallIDFile$ FOR INPUT ACCESS READ SHARED AS #1
  45.       LINE INPUT #1, PhoneNumber$
  46.    CLOSE #1
  47.    OPEN ListFile$ FOR INPUT ACCESS READ SHARED AS #1
  48.       DO WHILE NOT EOF(1)
  49.          LINE INPUT #1, ListNumber$
  50.          IF ListNumber$ = PhoneNumber$ THEN
  51.             PRINT "Found Match - Deleting "; CallIDFile$;
  52.             KillFile CallIDFile$
  53.             Foundmatch = -1
  54.             EXIT DO
  55.          END IF
  56.       LOOP
  57.    CLOSE #1
  58.    PRINT
  59.    IF PDQExist(PCPListFile$) AND NOT FoundMatch THEN
  60.       PRINT "Checking PC Pursuit Users ... ";
  61.       OPEN PCPListFile$ FOR INPUT ACCESS READ SHARED AS #1
  62.          DO WHILE NOT EOF(1)
  63.             LINE INPUT #1, CheckName$
  64.             IF CheckName$ = UserName$ THEN
  65.                PRINT "PC Pursuit User Found - Adding to List."
  66.                OPEN ListFile$ FOR APPEND ACCESS READ WRITE SHARED AS #2
  67.                   PRINT #2, PhoneNumber$
  68.                CLOSE #2
  69.                EXIT DO
  70.             END IF
  71.          LOOP
  72.       CLOSE #1
  73.    END IF
  74. ELSE
  75.    PRINT "No file(s) found, aborting!"
  76. END IF
  77.  
  78. END
  79.  
  80. 'This file was last compiled with:
  81. 'BC ID_CHECK.BAS  /o /s;
  82. 'LINK ID_CHECK+
  83. '     C:\QB\LIB\_NOERROR C:\QB\LIB\_NOFIELD C:\QB\LIB\_NOREAD C:\QB\LIB\_NOVAL+
  84. '     /ex /nod /noe /packcode /far
  85. '
  86. '     nul
  87. '     C:\QB\LIB\SCREEN C:\QB\LIB\MYOWN C:\QB\LIB\QPPRO C:\QB\LIB\PDQFP
  88. '
  89.